﻿Public Class AccentRemover

    Public Shared Function UnSignVN(ByRef v As String) As String
        Dim value As String = v.Trim
        value = value.Replace("&", "")
        value = value.Replace(")", "")
        value = value.Replace("(", "")
        value = value.Replace(".", "-")
        value = value.Replace(":", "")
        value = value.Replace("?", "")
        '---------------------------------a^ 
        value = value.Replace("ấ", "a")
        value = value.Replace("ầ", "a")
        value = value.Replace("ẩ", "a")
        value = value.Replace("ẫ", "a")
        value = value.Replace("ậ", "a")
        '---------------------------------A^ 
        value = value.Replace("Ấ", "A")
        value = value.Replace("Ầ", "A")
        value = value.Replace("Ẩ", "A")
        value = value.Replace("Ẫ", "A")
        value = value.Replace("Ậ", "A")
        '---------------------------------a( 
        value = value.Replace("ắ", "a")
        value = value.Replace("ằ", "a")
        value = value.Replace("ẳ", "a")
        value = value.Replace("ẵ", "a")
        value = value.Replace("ặ", "a")
        '---------------------------------A( 
        value = value.Replace("Ắ", "A")
        value = value.Replace("Ằ", "A")
        value = value.Replace("Ẳ", "A")
        value = value.Replace("Ẵ", "A")
        value = value.Replace("Ặ", "A")
        '---------------------------------a 
        value = value.Replace("á", "a")
        value = value.Replace("à", "a")
        value = value.Replace("ả", "a")
        value = value.Replace("ã", "a")
        value = value.Replace("ạ", "a")
        value = value.Replace("â", "a")
        value = value.Replace("ă", "a")
        '---------------------------------A 
        value = value.Replace("Á", "A")
        value = value.Replace("À", "A")
        value = value.Replace("Ả", "A")
        value = value.Replace("Ã", "A")
        value = value.Replace("Ạ", "A")
        value = value.Replace("Â", "A")
        value = value.Replace("Ă", "A")
        '---------------------------------e^ 
        value = value.Replace("ế", "e")
        value = value.Replace("ề", "e")
        value = value.Replace("ể", "e")
        value = value.Replace("ễ", "e")
        value = value.Replace("ệ", "e")
        '---------------------------------E^ 
        value = value.Replace("Ế", "E")
        value = value.Replace("Ề", "E")
        value = value.Replace("Ể", "E")
        value = value.Replace("Ễ", "E")
        value = value.Replace("Ệ", "E")
        '---------------------------------e 
        value = value.Replace("é", "e")
        value = value.Replace("è", "e")
        value = value.Replace("ẻ", "e")
        value = value.Replace("ẽ", "e")
        value = value.Replace("ẹ", "e")
        value = value.Replace("ê", "e")
        '---------------------------------E 
        value = value.Replace("É", "E")
        value = value.Replace("È", "E")
        value = value.Replace("Ẻ", "E")
        value = value.Replace("Ẽ", "E")
        value = value.Replace("Ẹ", "E")
        value = value.Replace("Ê", "E")
        '---------------------------------i 
        value = value.Replace("í", "i")
        value = value.Replace("ì", "i")
        value = value.Replace("ỉ", "i")
        value = value.Replace("ĩ", "i")
        value = value.Replace("ị", "i")
        '---------------------------------I 
        value = value.Replace("Í", "I")
        value = value.Replace("Ì", "I")
        value = value.Replace("Ỉ", "I")
        value = value.Replace("Ĩ", "I")
        value = value.Replace("Ị", "I")
        '---------------------------------o^ 
        value = value.Replace("ố", "o")
        value = value.Replace("ồ", "o")
        value = value.Replace("ổ", "o")
        value = value.Replace("ỗ", "o")
        value = value.Replace("ộ", "o")
        '---------------------------------O^ 
        value = value.Replace("Ố", "O")
        value = value.Replace("Ồ", "O")
        value = value.Replace("Ổ", "O")
        value = value.Replace("Ô", "O")
        value = value.Replace("Ộ", "O")
        '---------------------------------o* 
        value = value.Replace("ớ", "o")
        value = value.Replace("ờ", "o")
        value = value.Replace("ở", "o")
        value = value.Replace("ỡ", "o")
        value = value.Replace("ợ", "o")
        '---------------------------------O* 
        value = value.Replace("Ớ", "O")
        value = value.Replace("Ờ", "O")
        value = value.Replace("Ở", "O")
        value = value.Replace("Ỡ", "O")
        value = value.Replace("Ợ", "O")
        '---------------------------------u* 
        value = value.Replace("ứ", "u")
        value = value.Replace("ừ", "u")
        value = value.Replace("ử", "u")
        value = value.Replace("ữ", "u")
        value = value.Replace("ự", "u")
        '---------------------------------U* 
        value = value.Replace("Ứ", "U")
        value = value.Replace("Ừ", "U")
        value = value.Replace("Ử", "U")
        value = value.Replace("Ữ", "U")
        value = value.Replace("Ự", "U")
        '---------------------------------y 
        value = value.Replace("ý", "y")
        value = value.Replace("ỳ", "y")
        value = value.Replace("ỷ", "y")
        value = value.Replace("ỹ", "y")
        value = value.Replace("ỵ", "y")
        '---------------------------------Y 
        value = value.Replace("Ý", "Y")
        value = value.Replace("Ỳ", "Y")
        value = value.Replace("Ỷ", "Y")
        value = value.Replace("Ỹ", "Y")
        value = value.Replace("Ỵ", "Y")
        '---------------------------------DD 
        value = value.Replace("Đ", "D")
        value = value.Replace("Đ", "D")
        value = value.Replace("đ", "d")
        '---------------------------------o 
        value = value.Replace("ó", "o")
        value = value.Replace("ò", "o")
        value = value.Replace("ỏ", "o")
        value = value.Replace("õ", "o")
        value = value.Replace("ọ", "o")
        value = value.Replace("ô", "o")
        value = value.Replace("ơ", "o")
        '---------------------------------O 
        value = value.Replace("Ó", "O")
        value = value.Replace("Ò", "O")
        value = value.Replace("Ỏ", "O")
        value = value.Replace("Õ", "O")
        value = value.Replace("Ọ", "O")
        value = value.Replace("Ô", "O")
        value = value.Replace("Ơ", "O")
        '---------------------------------u 
        value = value.Replace("ú", "u")
        value = value.Replace("ù", "u")
        value = value.Replace("ủ", "u")
        value = value.Replace("ũ", "u")
        value = value.Replace("ụ", "u")
        value = value.Replace("ư", "u")
        '---------------------------------U 
        value = value.Replace("Ú", "U")
        value = value.Replace("Ù", "U")
        value = value.Replace("Ủ", "U")
        value = value.Replace("Ũ", "U")
        value = value.Replace("Ụ", "U")
        value = value.Replace("Ư", "U")
        '--------------------------------- 
        value = value.Replace("  ", " ")
        value = value.Replace(" ", "-")
        Return value
    End Function
End Class